       subroutine writezmat
       character*40  CCLEVEl
       character*40  SYM
       integer size 
C       write(6,*)'input the CC level like CCSD or CCSD(T)'
C       read(6,*) cclevel
C       write(6,*)'if EOM is called, then you should first
C     & input the symmetry like 0/0/0/0 or 
C     &0/0/0/0/0/0/0/0'
C       read(6,'(A20)') sym 
C       write(6,*)'input the memory size in MB'
C       read(6,*) size
C       open(unit=55,file='ZMAT',form='formatted')
C       rewind 55
C       write(55,'(A)')"ZMAT write by intbdf"
C       write(55,'(A)')'HE'
C       write(55,'(A)')
C       write(55,'(A)')'*ACES2(ECP=OFF,BASIS=6-31G,SYMM=ON'
C       write(55,'(A)')'SCF_CONV=12,CC_CONV=12,REF=UHF,CC_PROG=ECC'
C       write(55,'(A,A7)')'CALC=',cclevel
C       write(55,'(A,I5)')'MEMORY_SIZE=',size
C       write(55,'(A,A20)')'ESTATE_SYM=',SYM
C       write(55,'(A)')'MEM_UNIT=MB)'
C       write(55,'(A)')
C       write(55,'(A)')'%readbdf'
       return
       end

